From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 24 Nov 2010 06:50:28 +0000 (+0000)
Subject: shr.el (shr-insert-color-overlay): Pass rgb(rrr, ggg, bbb) type color expression... 
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5546
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=16eea6b58975655335ff82ecb64c95c98aee11c7;p=emacs.git

shr.el (shr-insert-color-overlay): Pass rgb(rrr, ggg, bbb) type color expression to shr-color-check as is.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8303ecc8d3d..997e474c805 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2010-11-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* shr.el (shr-insert-color-overlay): Pass rgb(rrr, ggg, bbb) type color
+	expression to shr-color-check as is.
+
 	* shr-color.el (shr-color->hexadecimal): Ignore case of color names.
 
 	* color-lab.el: Add coding cookie.
diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el
index b195f6bf8a5..3d3b199cd7e 100644
--- a/lisp/gnus/shr.el
+++ b/lisp/gnus/shr.el
@@ -502,11 +502,12 @@ START, and END."
 
 (defun shr-insert-color-overlay (color start end)
   (when color
-    (when (string-match " " color)
+    (when (and (not (string-match "\\`rgb([^\)]+)\\'" color))
+	       (string-match " " color))
       (setq color (car (split-string color))))
     (let ((overlay (make-overlay start end)))
       (overlay-put overlay 'face (cons 'foreground-color
-                                       (cadr (shr-color-check color)))))))
+				       (cadr (shr-color-check color)))))))
 
 ;;; Tag-specific rendering rules.